Kolik dni ma zadany mesic
Otázka od: Jiri Betunak
1. 11. 2002 22:40
Budte pozdraveni vsichni v konferenci
Jsem opet zde a opet ze stupidni otazkou
EXISTUJE nejaka funkce ktera mi navrati> kolik dni ma
napr. Mesic leden v roce 2003
Za jakoukoliv radu predem dekuji
Jiri Betunak
kindrik@centrum.cz
Delphi5 pro ;Windows ME 4 90
Odpovedá: Petr Vones
1. 11. 2002 23:10
From: "Jiri Betunak" <kindrik@centrum.cz>
> EXISTUJE nejaka funkce ktera mi navrati> kolik dni ma
> napr. Mesic leden v roce 2003
Delphi: DaysInAMonth v unitu DateUtils
JCL: DaysInMonth v unitu JclDateTime
Petr Vones
Odpovedá: bleak
2. 11. 2002 13:40
tohle vrati posledni den v mesici, na konci je v d1
plom:=EncodeDate(rok,mesic,1);
LDM:= plom-1+32;
decodedate(ldm,r1,m1,d1);
LDM:= LDM - d1;
decodedate(ldm,r1,m1,d1);
plom:=EncodeDate(rok,mesic,d1);
----- Original Message -----
From: "Jiri Betunak" <kindrik@centrum.cz>
> EXISTUJE nejaka funkce ktera mi navrati> kolik dni ma
> napr. Mesic leden v roce 2003